home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / juicebar / 00813.ls < prev    next >
Encoding:
Text File  |  1995-04-07  |  303 b   |  17 lines
  1. on mouseUp
  2.   global paint
  3.   set paint to paint + 1
  4.   if (paint mod 4) = 0 then
  5.     go("Paintcan.Pos3a")
  6.   end if
  7.   if (paint mod 4) = 1 then
  8.     go("Paintcan.Pos3c")
  9.   end if
  10.   if (paint mod 4) = 2 then
  11.     go("Paintcan.Pos3b")
  12.   end if
  13.   if (paint mod 4) = 3 then
  14.     go("Paintcan.Pos3c")
  15.   end if
  16. end
  17.